Zoo Guides: Life in the Desert/Zoo Guides - Life in the Desert.iso/pc/lfnthdsr/chapters/shared.dir/00401_Script_401

Text File | 1995-05-08 | 846b | 35 lines

--
on question
global theanswer, thesprite, score, tests
if score > 3 then put 0 into score
if the castnum of sprite thesprite <> f72 then
exit
end if

puppetsprite thesprite, true
put the top of sprite thesprite into vert
put the mousev into pos
put 1 into checkquestion
if thesprite = 10 then put 4 into checkquestion
if thesprite = 9 then put 7 into checkquestion

if pos <  (vert+15) then
put 1 into answer
set the castnum of sprite thesprite to f81
end if

if pos > (vert + 24) then
if pos < (vert + 39) then
put 2 into answer
set the castnum of sprite thesprite to f82
end if
end if

if pos > vert + 49 then
put 3 into answer
set the castnum of sprite thesprite to f83
end if
set the castnum of sprite 20 to  98 + (checkquestion + answer)
if answer = theanswer then put score + 1 into score

updatestage